Option Explicit
Sub A_Sample067()
    Dim myObjs   As New Collection
    Dim myObj1   As Object
    Dim myObj2   As Object
    Dim myObjStr As String
    myObjStr = "objName"
    myObjs.Add myObj1, myObjStr
    'ǳƨ즹
    Set myObj2 = myObjs(myObjStr)
    If myObj2 Is Nothing Then
        MsgBox "ѩoO@ӽdҡAҥHLk"
 Else
        MsgBox myObj2.Name
    End If
    Set myObj1 = Nothing		'
    Set myObj2 = Nothing
    Set myObjs = Nothing
End Sub
